home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Die Speccy' 97
/
Die Speccy' 97.iso
/
amiga_system
/
the_aminet
/
comm
/
bbs
/
bbbbs85.lha
/
rexx
/
BumpTime.baud
< prev
next >
Wrap
Text File
|
1994-09-16
|
338b
|
15 lines
/* BumpTime.baud */
oldminutes=GETCLIP('BBS_minutes')
oldcom=GETCLIP('BBS_COMMAND')
minutes=Request(100,100,"Enter new minutes",oldminutes,,'CANCEL','BAUD')
IF DATATYPE(minutes,'N') & minutes>0 & minutes~=oldminutes THEN
DO
CALL SETCLIP('BBS_minutes',minutes)
CALL SETCLIP('BBS_COMMAND',oldcom'T')
END
/* BumpTime.baud */